(run-with-timer): Set repetition interval.

diff --git a/lisp/timer.el b/lisp/timer.el
index e29ee58a2111e332700268c755fbc57cc2cab3eb..94b681abdf0b910af1f0aae75e827bf3cbd8bcaf 100644 (file)
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -236,7 +236,7 @@ This function returns a timer object which you can use in `cancel-timer'."
       (error "Invalid repetition interval"))
 
   (let ((timer (timer-create)))
-    (timer-set-time timer (current-time))
+    (timer-set-time timer (current-time) repeat)
     (timer-inc-time timer secs)
     (timer-set-function timer function args)
     (timer-activate timer)